---- ESTRAZIONE QUADRATURA -------------
 select 'Quadratura' cLASSE,'' POD, NULL tot_QTA,NULL  totI_PUNTI,NULL  tot_PREZZO_TOT,NULL  tot_COSTI_APPROV,
NULL  tot_BIO_QTA,NULL  tot_BIO_PUNTI,NULL  tot_BIO_PREZZO_TOT,NULL  tot_BIO_COSTI_APPROV
               from dual  union all

 SELECT CLASSE,POD,sum(MONO_QTA) MONO_QTA,round(sum(MONO_PUNTI),3) MONO_PUNTI,
             round(sum(MONO_PREZZO_TOT)*1000/
                    case when sum(MONO_QTA)=0 then 999999999999 else sum(mono_qta) end ,2) MONO_PREZZO_TOT,
             round(sum(MONO_COSTI_APPROV)*1000/
             case when sum(MONO_QTA)=0 then 999999999999 else sum(mono_qta) end ,2) MONO_COSTI_APPROV,
            sum(BIO_QTA) BIO_QTA,round(sum(BIO_PUNTI),3) BIO_PUNTI,
            round(sum(BIO_PREZZO_TOT)*1000/
            case when sum(bio_QTA)=0 then 999999999999 else sum(bio_qta) end ,2) BIO_PREZZO_TOT,
              round(sum(BIO_COSTI_APPROV)*1000/
            case when sum(bio_QTA)=0 then 999999999999 else sum(bio_qta) end ,2)BIO_COSTI_APPROV
   FROM( 
   
   
                
select cla.classe,cla.pod,
 sum(case when progressivo_voce = '010' then nvl(qta.tot_qta,0) else 0  end )  mono_QTA,
 round(max(d120.tot_qta_120_a1),3) MONO_PUNTI,
    
 sum(case when progressivo_voce = '010' then nvl(qta.tot_impo,0) else 0  end )  MONO_PREZZO_TOT,
 
 max(nvl(IMPO_COMP_010,0)) MONO_COSTI_APPROV,

   
 sum(case when progressivo_voce = '010TRAS' then qta.tot_qta else 0  end ) BIO_QTA,  
round(max(d120.tot_qta_120_B1),3) BIO_PUNTI,  
sum(case when progressivo_voce = '010TRAS' then nvl(qta.tot_impo,0) else 0 end )+
        sum(case when progressivo_voce = '010VEND' then nvl(qta.tot_impo,0) else 0 end) +
             sum(case when progressivo_voce = '010DISP3' then nvl(qta.tot_impo,0) else 0 end)  BIO_PREZZO_TOT,
   
       sum(case when progressivo_voce = '010VEND' then nvl(qta.tot_impo,0) else 0 end)+
            sum(case when progressivo_voce = '010DISP3' then nvl(qta.tot_impo,0) else 0 end)  BIO_COSTI_APPROV   
        
        
        
 from asm_aegg_estrai_dati_cla cla, asm_aegg_estrai_dati_qta qta,asm_aegg_estrai_dati_120 d120,
  (select POD,SUM(IMPONIBILE) IMPO_COMP_010
  from asm_aegg_estrai_dati X
  where
  progressivo_voce='010'
  and descrizione_componente in ('CCA','CAD','PE','PD','UC1','DISP3','DISP31','DISP32','PPE','PPE1','PPE2')
  GROUP BY POD) COMP_010
  
 where qta.pod=cla.pod
 and d120.pod(+)=cla.pod
AND COMP_010.POD(+)=CLA.POD
 --and cla.uso = 'R'
 --and cla.potenza <=3
-- and cla.pod in ('IT018E00632481','IT018E01361641','IT018E01378341','IT018E19983171')
 group by cla.classe,cla.pod)
 --where  pod like '%10001721'
 group by classe,POD
 

 